home *** CD-ROM | disk | FTP | other *** search
/ ClipArt Heaven 2 / ClipArt Heaven 2.iso / utility / datashow / sound1.shw < prev    next >
Text File  |  1992-08-31  |  532b  |  12 lines

  1. ;*********************************************************************;
  2. ; Sciptname..:  SOUND1.SHW                                            ;
  3. ; Purpose....:  Sub program to PROMOTE1.SHW (tight loop for sound).   ;
  4. ;*********************************************************************;
  5. MARK 1          ; Set a mark to jump to
  6. MUSIC SOUND G 4 70
  7. MUSIC SOUND D 4 70
  8. VARIABLE INCREASE soundloop 1
  9. IF soundloop 8 DO JUMPMARK 2
  10. JUMPMARK 1      ; If we've reached here, jump to mark 1
  11. MARK 2          ; Set a mark to jump to
  12.